inherited FRomaneio: TFRomaneio
  Left = 209
  Top = 108
  Caption = 'Romaneio do Pedido'
  Constraints.MinHeight = 531
  Constraints.MinWidth = 620
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        object PageControl: TPageControl
          Left = 1
          Top = 70
          Width = 842
          Height = 351
          ActivePage = TSRomaneio
          Align = alClient
          TabIndex = 0
          TabOrder = 2
          OnChange = PageControlChange
          object TSRomaneio: TTabSheet
            Caption = 'Romaneio'
            object Label1: TLabel
              Left = 0
              Top = 5
              Width = 40
              Height = 16
              Caption = 'Codigo'
            end
            object DBText1: TDBText
              Left = 0
              Top = 25
              Width = 89
              Height = 21
              DataField = 'ROM_CODIGO'
              DataSource = dsCadastro
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label5: TLabel
              Left = 0
              Top = 47
              Width = 40
              Height = 16
              Caption = 'Cliente'
            end
            object Label6: TLabel
              Left = 94
              Top = 5
              Width = 27
              Height = 16
              Caption = 'Data'
            end
            object DBLCBCliente: TDBLookupComboBox
              Left = 0
              Top = 64
              Width = 592
              Height = 24
              DataField = 'ROM_CLIENTE'
              DataSource = dsCadastro
              KeyField = 'CLI_CODIGO'
              ListField = 'CLI_RAZAO'
              ListSource = DSCliente
              TabOrder = 2
              OnExit = DBLCBClienteExit
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBDEData: TDBDateEdit
              Left = 94
              Top = 22
              Width = 113
              Height = 26
              DataField = 'ROM_DATA'
              DataSource = dsCadastro
              ButtonWidth = 26
              NumGlyphs = 2
              TabOrder = 0
              OnEnter = DBDEDataEnter
              OnExit = DBDEDataExit
            end
            object DBRGSituacao: TDBRadioGroup
              Tag = 5
              Left = 213
              Top = 7
              Width = 300
              Height = 41
              Caption = 'Situa'#231#227'o'
              Columns = 3
              DataField = 'ROM_SITUACAO'
              DataSource = dsCadastro
              Enabled = False
              Items.Strings = (
                'Em aberto'
                'Encerrado'
                'Cancelado')
              TabOrder = 1
              Values.Strings = (
                '0'
                '1'
                '2')
            end
            object BtnMudaSituacao: TBitBtn
              Left = 6
              Top = 267
              Width = 117
              Height = 20
              Caption = 'Ativar / Cancelar'
              TabOrder = 3
              OnClick = BtnMudaSituacaoClick
            end
          end
          object TSItensRomaneio: TTabSheet
            Caption = 'Itens do Romaneio'
            ImageIndex = 1
            object Label32: TLabel
              Left = 160
              Top = 0
              Width = 67
              Height = 16
              Caption = 'Item pedido'
            end
            object Label35: TLabel
              Left = 4
              Top = 123
              Width = 66
              Height = 16
              Caption = 'Quantidade'
            end
            object LtotalItens: TLabel
              Left = 229
              Top = 174
              Width = 363
              Height = 16
              AutoSize = False
              Caption = 'Total itens :'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label14: TLabel
              Left = 4
              Top = -1
              Width = 109
              Height = 16
              Caption = 'Pedidos do Cliente'
            end
            object DBText2: TDBText
              Left = 5
              Top = 60
              Width = 508
              Height = 19
              DataField = 'PROD_DESCRICAOSAI'
              DataSource = DSItensPedidoVenda
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText3: TDBText
              Left = 518
              Top = 60
              Width = 78
              Height = 19
              DataField = 'ITENSPED_DATAENTREGA'
              DataSource = DSItensPedidoVenda
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label24: TLabel
              Left = 4
              Top = 43
              Width = 47
              Height = 16
              Caption = 'Produto'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label2: TLabel
              Left = 517
              Top = 43
              Width = 79
              Height = 16
              Caption = 'Data Entrega'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label3: TLabel
              Left = 4
              Top = 79
              Width = 31
              Height = 16
              Caption = 'Local'
            end
            object DBGrid1: TDBGrid
              Tag = 5
              Left = 0
              Top = 228
              Width = 834
              Height = 92
              Align = alBottom
              DataSource = DSItensRomaneio
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              TabOrder = 8
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnCellClick = DBGrid1CellClick
              OnKeyUp = DBGrid1KeyUp
              Columns = <
                item
                  Expanded = False
                  FieldName = 'ITENSROM_CODIGO'
                  Title.Caption = 'Item'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSROM_PEDIDO'
                  Title.Caption = 'Pedido'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSROM_ITEMPEDIDO'
                  Title.Caption = 'Item pedido'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'LOC_DESCRICAO'
                  Title.Caption = 'Local'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PROD_DESCRICAOSAI'
                  Title.Caption = 'Produto'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSROM_QUANTIDADE'
                  Title.Caption = 'Quantidade'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSROM_ENCERRAITEMPEDIDO'
                  Title.Caption = 'Encerra item pedido'
                  Width = 101
                  Visible = True
                end>
            end
            object BtnIncluirProduto: TBitBtn
              Tag = 1
              Left = 4
              Top = 170
              Width = 69
              Height = 24
              Caption = 'I&ncluir'
              TabOrder = 5
              OnClick = BtnIncluirProdutoClick
            end
            object BtnAlterarProduto: TBitBtn
              Tag = 1
              Left = 78
              Top = 170
              Width = 68
              Height = 24
              Caption = 'Alterar'
              TabOrder = 6
              OnClick = BtnAlterarProdutoClick
            end
            object BtnDeletarProduto: TBitBtn
              Tag = 1
              Left = 151
              Top = 170
              Width = 69
              Height = 24
              Caption = 'Excluir'
              TabOrder = 7
              OnClick = BtnDeletarProdutoClick
            end
            object DBLCBItemPedidoVenda: TDBLookupComboBox
              Left = 160
              Top = 16
              Width = 137
              Height = 24
              KeyField = 'ITENSPED_CODIGO'
              ListField = 'ITENSPED_CODIGO'
              ListSource = DSItensPedidoVenda
              TabOrder = 1
              OnExit = DBLCBItemPedidoVendaExit
              OnKeyDown = DBLCBItemPedidoVendaKeyDown
            end
            object EQuantidade: TEdit
              Left = 4
              Top = 140
              Width = 86
              Height = 24
              TabOrder = 4
              Text = '0'
              OnExit = EQuantidadeExit
              OnKeyPress = EQuantidadeKeyPress
            end
            object DBLCBPedidoVenda: TDBLookupComboBox
              Left = 4
              Top = 16
              Width = 145
              Height = 24
              KeyField = 'PED_CODIGO'
              ListField = 'PED_CODIGO'
              ListSource = DSPedidoVenda
              TabOrder = 0
              OnExit = DBLCBPedidoVendaExit
              OnKeyDown = DBLCBItemPedidoVendaKeyDown
            end
            object CHBEncerraitemPedidoVenda: TCheckBox
              Left = 329
              Top = 11
              Width = 189
              Height = 30
              Caption = 'Encerra Item pedido Venda'
              TabOrder = 2
            end
            object DBLCBLocal: TDBLookupComboBox
              Left = 4
              Top = 96
              Width = 552
              Height = 24
              KeyField = 'LOC_CODIGO'
              ListField = 'LOC_DESCRICAO'
              ListSource = DSLocal
              TabOrder = 3
              OnKeyDown = DBLCBItemPedidoVendaKeyDown
            end
          end
          object TSCobranca: TTabSheet
            Caption = 'Fechamento'
            ImageIndex = 2
            object Label30: TLabel
              Left = 4
              Top = 1
              Width = 44
              Height = 16
              Caption = 'Codigo'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText7: TDBText
              Left = 4
              Top = 20
              Width = 78
              Height = 16
              DataField = 'COB_CODIGO'
              DataSource = DSCobranca
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label31: TLabel
              Left = 89
              Top = 1
              Width = 29
              Height = 16
              Caption = 'Data'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText8: TDBText
              Left = 89
              Top = 20
              Width = 71
              Height = 16
              DataField = 'COB_DATA'
              DataSource = DSCobranca
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label33: TLabel
              Left = 182
              Top = 1
              Width = 32
              Height = 16
              Caption = 'Valor'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBText9: TDBText
              Left = 182
              Top = 20
              Width = 120
              Height = 16
              DataField = 'COB_VALOR'
              DataSource = DSCobranca
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label67: TLabel
              Left = 4
              Top = 65
              Width = 72
              Height = 16
              Caption = 'Presta'#231#245'es '
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object DBGrid3: TDBGrid
              Tag = 5
              Left = 0
              Top = 136
              Width = 834
              Height = 193
              Align = alBottom
              DataSource = DSCobranca
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              TabOrder = 0
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_CODIGO'
                  Title.Caption = 'Item'
                  Width = 71
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_DATAVENCIMENTO'
                  Title.Caption = 'Data Vencimento'
                  Width = 95
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_VALOR'
                  Title.Caption = 'Valor'
                  Width = 130
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_BANCO'
                  Title.Caption = 'Banco'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_AGENCIA'
                  Title.Caption = 'Ag'#234'ncia'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_CHEQUE'
                  Title.Caption = 'Cheque'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRESTCOB_EMITENTE'
                  Title.Caption = 'Emitente'
                  Visible = True
                end>
            end
            object BtnGeraCobranca: TBitBtn
              Left = 462
              Top = 16
              Width = 135
              Height = 25
              Caption = 'Fechamento'
              TabOrder = 1
              OnClick = BtnGeraCobrancaClick
            end
          end
        end
        object Panel4: TPanel
          Left = 1
          Top = 36
          Width = 842
          Height = 34
          Align = alTop
          TabOrder = 3
          object Label34: TLabel
            Left = 4
            Top = 5
            Width = 69
            Height = 16
            Caption = 'Romaneio :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBText10: TDBText
            Left = 73
            Top = 5
            Width = 69
            Height = 21
            DataField = 'ROM_CODIGO'
            DataSource = dsCadastro
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label36: TLabel
            Left = 143
            Top = 5
            Width = 47
            Height = 16
            Caption = 'Cliente :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBText11: TDBText
            Left = 192
            Top = 5
            Width = 262
            Height = 21
            DataField = 'CLI_RAZAO'
            DataSource = DSCliente
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 458
            Top = 5
            Width = 38
            Height = 16
            Caption = 'Valor :'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object LValor: TLabel
            Left = 507
            Top = 5
            Width = 96
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = '                          '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
        end
      end
    end
  end
  inherited dsCadastro: TDataSource
    Top = 296
  end
  inherited QCadastro: TQuery
    AfterInsert = QCadastroAfterInsert
    SQL.Strings = (
      'Select * from Romaneio'
      'Order By Rom_Codigo'
      '')
    Top = 336
    object QCadastroROM_CODIGO: TIntegerField
      FieldName = 'ROM_CODIGO'
      Origin = 'BASE.ROMANEIO.ROM_CODIGO'
    end
    object QCadastroROM_DATA: TDateTimeField
      FieldName = 'ROM_DATA'
      Origin = 'BASE.ROMANEIO.ROM_DATA'
    end
    object QCadastroROM_CLIENTE: TIntegerField
      FieldName = 'ROM_CLIENTE'
      Origin = 'BASE.ROMANEIO.ROM_CLIENTE'
    end
    object QCadastroROM_SITUACAO: TSmallintField
      FieldName = 'ROM_SITUACAO'
      Origin = 'BASE.ROMANEIO.ROM_SITUACAO'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.ROMANEIO.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.ROMANEIO.DATAMODIFICACAO'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.ROMANEIO.CODIGOEMPRESA'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.ROMANEIO.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.ROMANEIO.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.ROMANEIO.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.ROMANEIO.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.ROMANEIO.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.ROMANEIO.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.ROMANEIO.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.ROMANEIO.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.ROMANEIO.DATA_RECUPERACAO'
    end
  end
  inherited dspCadastro: TDataSetProvider
    Top = 376
  end
  inherited cdsCadastro: TClientDataSet
    Top = 416
  end
  object QItensRomaneio: TQuery
    OnPostError = QItensRomaneioPostError
    DatabaseName = 'base'
    SQL.Strings = (
      'Select ItensRomaneio.* ,Prod_DescricaoSai,Loc_Descricao'
      
        'from Local Right join (ItensRomaneio Inner join (ItensPedidoVend' +
        'a Inner join produto on ItensPed_Produto = Prod_Codigo) on Itens' +
        'Rom_ItemPedido = ItensPed_Codigo) on ItensRom_Local = Loc_Codigo')
    Left = 303
    Top = 224
  end
  object DSItensRomaneio: TDataSource
    DataSet = QItensRomaneio
    Left = 335
    Top = 224
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 416
    Top = 136
  end
  object QAux: TQuery
    DatabaseName = 'base'
    Left = 424
    Top = 223
  end
  object DSItensPedidoVenda: TDataSource
    DataSet = QitensPedidovenda
    Left = 271
    Top = 224
  end
  object QVerifica: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from ItensRomaneio')
    Left = 390
    Top = 223
  end
  object QPedidoVenda: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select Ped_Codigo from PedidoVenda'
      'Where Ped_Cliente = 1'
      'Order by Ped_Codigo')
    Left = 179
    Top = 224
  end
  object DSPedidoVenda: TDataSource
    DataSet = QPedidoVenda
    Left = 209
    Top = 224
  end
  object QitensPedidovenda: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'Select ItensPed_Codigo,ItensPed_Local,ITENSPED_DATAENTREGA,ITENS' +
        'PED_QUANTIDADE,Prod_DescricaoSai'
      
        'from ItensPedidoVenda left join produto on ItensPed_Produto = Pr' +
        'od_Codigo'
      'Order by ItensPed_Codigo')
    Left = 238
    Top = 224
  end
  object DSLocal: TDataSource
    DataSet = DMGestao.QLocal
    Left = 231
    Top = 158
  end
  object QCobranca: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'select * from cobranca Left JOIN PrestacaoCobranca ON Cob_Codigo' +
        ' = PrestCob_Cobranca'
      'Order By PrestCob_CODIGO')
    Left = 398
    Top = 264
  end
  object DSCobranca: TDataSource
    DataSet = QCobranca
    Left = 427
    Top = 264
  end
end
